home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2000 #5
/
Amiga Plus CD - 2000 - No. 5.iso
/
t
/
qt.gc.bak.1
< prev
next >
Wrap
Text File
|
2000-01-01
|
1KB
|
79 lines
G4C
Varpath "qt.gc/prefs.gc"
WinBig -1 -1 403 150 "Amiga Plus Prefs (C) by Markus Castro"
WinType 11010000
WinFont Times.font 15 000
;Screen Prefs
xOnload
mov = 1
XOnclose
guiclose qt.gc
xonactive
changeimage qt.gc 4 -1 -1 qt2
playsound 0
xoninactive
changeimage qt.gc 4 -1 -1 qt1
Image 10 10 qt21
gadid 1
Image 50 50 qt12
gadid 2
Image 20 95 qt13
gadid 3
Image 300 25 qt2
gadid 4
Text 154 3 300 18 'Bitte QT Abspieler wählen:' 27 NOBOX
xRADIO 154 25 18 18 mov 5
GadTitle right
RSTR QT 1
RSTR CyberQT 2
RSTR MooviD 3
RSTR "" 4
playsound plop
changeimage qt.gc 1 -1 -1 qt11
changeimage qt.gc 2 -1 -1 qt12
changeimage qt.gc 3 -1 -1 qt13
if $mov < 4
changeimage qt.gc $mov -1 -1 qt2$mov
endif
xTEXTIN 175 79 200 18 "" eigener5 "" 255
gadid 5
xButton 380 79 20 18 "_F"
CLI 'Requestfile TITLE "Bitte Abspieler wählen:" DRAWER APCD:a+tools/qt >env:APCDFiles5'
dummys = $..apcdfiles5
cutvar dummys cut char -1 dummy
cutvar dummys cut char 1 dummy
eigener5 = $dummys
update qt.gc 5 $eigener5
xbutton -1 127 50 20 "O.k."
DOCASE $mov
Case = 1
qt = "apcd:a+tools/qt/qt"
qt2 = "QT"
BREAK
Case = 2
qt = "apcd:a+tools/qt/cyberqt"
qt2 = "CyberQT"
BREAK
Case = 3
qt = "apcd:a+tools/qt/moovid"
qt2 = "Moovid"
BREAK
Case = 4
qt = $eigener4
qt2 = $eigener4
BREAK
Endcase
update prefs.gc 6 $qt2
Guiclose qt.gc